home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / rexx / FWCalendar.lha / gui4cli.lha / Gui4Cli / Dir / Dir.prot < prev    next >
Encoding:
Text File  |  1998-07-06  |  1.0 KB  |  55 lines
  1. G4C
  2.  
  3. winbig 0 0 130 135 ''
  4. wintype 00001000
  5. winonmouse 100 13
  6. varpath dir.gc
  7.  
  8. xOnInactive
  9. guiclose dir.prot
  10.  
  11. xOnRMB
  12. guiclose dir.prot
  13.  
  14. xOnLoad
  15. prt_1 = 1
  16. prt_2 = 0
  17. prt_3 = 0
  18. prt_4 = 0
  19. prt_5 = 0
  20. prt_6 = 0
  21. prt_7 = 0
  22. guiopen dir.prot
  23.  
  24. xonopen
  25. lvmulti first
  26. if $lv_file = ""
  27.    ezreq "PROTECT:\nHow's about choosing\nsome files first ?" OK ""
  28.    guiclose dir.prot
  29. endif
  30.  
  31. box 0 0 0 0 OUT BUTTON
  32.  
  33. xCheckBox   80 10  27 11 "No Delete"  prt_1 1 0 ON
  34. xCheckBox   80 25  27 11 Execute      prt_2 1 0 OFF
  35. xCheckBox   80 40  27 11 "No Write"   prt_3 1 0 OFF
  36. xCheckBox   80 55  27 11 "No Read"    prt_4 1 0 OFF
  37. xCheckBox   80 70  27 11 Archive      prt_5 1 0 OFF
  38. xCheckBox   80 85  27 11 Pure         prt_6 1 0 OFF
  39. xCheckBox   80 100 27 11 Script       prt_7 1 0 OFF
  40.  
  41. xButton 5 115 60 15 OK
  42. guiclose dir.prot
  43. setvar prot_flag ""
  44. appvar prot_flag $prt_1
  45. appvar prot_flag $prt_2
  46. appvar prot_flag $prt_3
  47. appvar prot_flag $prt_4
  48. appvar prot_flag $prt_5
  49. appvar prot_flag $prt_6
  50. appvar prot_flag $prt_7
  51. lvaction protect $prot_flag
  52.  
  53. xButton 65 115 60 15 Cancel
  54. guiclose dir.prot
  55.